;SCANTEST


A=555
OpenWindow(1, 100, 100, 100, 100, "SCAN TEST")
TextGadget(1, 0, 0, 100, 100, "")

Repeat
  EVENT = WindowEvent()
  SetGadgetText(1, Str(A))
  Delay(40)
Until EVENT=#PB_Event_CloseWindow
; IDE Options = PureBasic 4.51 (Windows - x86)
; CursorPosition = 10
; EnableThread
; EnableXP
; Executable = SCANTEST.exe